x0 fdh y0 sub dh sub translate w h bits[sx 0 0 sy neg 0 h]{currentfile imbuf fhbinim{readstring}{readhexstring}ifelse pop}

/imbuf w bits mul 7 add 8 idiv string def